Public Class FormReport1

    Private Sub FormReport1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim path = Application.StartupPath + "\Report1.rpt"
        Dim app As New CRAXDDRT.Application()
        Dim doc = app.OpenReport(path)
        doc.ParameterFields.GetItemByName("id").AddCurrentValue(FormEmployee.rows)
        Rptviewer.ReportSource = doc
        Rptviewer.ViewReport()
    End Sub
End Class